res <- make_section("ndvi","green") res[[1]]
res[[2]]
res <- make_section("lst","red") res[[1]]
res <- make_section("pr","blue") res[[1]]
res <- make_section("at","orange") res[[1]]